# 创建与项目关联的目录
createAssociatedDirectory <- function(dirs) {
  # 使用 for 循环创建目录
  for (dir in dirs) {
    # 构建完整路径
    dir_path <- fs::path("..", dir, FN)
    assign(toupper(paste0(dir, "_dir")), dir_path, envir = .GlobalEnv)
    # 检查目录是否存在，如果不存在则创建
    if (!dir.exists(dir_path)) {
      fs::dir_create(dir_path)
      message("Created directory: ", dir_path)
    } else {
      message("Directory already exists: ", dir_path)
    }
  }
}


